MIDIOutNumOfDevices
(Property)
Purpose: Returns the number of MIDI-out devices available.
Syntax: IntVar = CtlName.MIDIOutNumOfDevices.
Arguments: None.
Example:
'Fill a ComboBox with MIDI-Out devices
Dim
intTemp
As
Integer
Dim
intDeviceBase
As
Integer
'Check if MIDI Mapper is present
If
Len(SoundCard1.MIDIOutGetDeviceName (-1))
Then intDeviceBase =
-1
For
intTemp
=
intDeviceBase
To
SoundCard1.MIDIOutNumOfDevices
____Combo1.AddItem
SoundCard1.MIDIOutGetDeviceName (intTemp)
Next intTemp
Comments: Check for the MIDI Mapper as shown in the example. The MIDI Mappers ID is always -1, therefore MIDIOutNumOfDevices is zerobased if MIDI Mapper is not present and -1 if present. Property is Read Only.
See Also:
MIDIOutGetDeviceName
MIDIInNumOfDevices
MIDIInGetDeviceName